package Infinite::Sequence::RandomRange;
use base 'Infinite::Sequence';

sub new {
	my( $class, @range ) = @_;
	bless { range => \@range }, $class;
}

sub increment {
	my $this = shift;
	$this->{range}->[ int( rand() * @{ $this->{range} } ) ];
}

1;
